home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_17
/
skidpan.bas
(
.txt
)
< prev
Wrap
Atari STOS Basic
|
1987-04-21
|
196KB
|
282 lines
1 MODE
10 VARNAME
100 INK
1000 VARNAME
105 VARNAME
110 TIMER
1100 OPEN
1110 FOR
1120 IF
1121 IF
1130 NEXT
1140 CLOSE
115 GOSUB
1150 RETURN
120 VARNAME
1200 PRINT
121 VARNAME
1210 PRINT
1220 PRINT
1230 INPUT
1240 RETURN
125 LIMIT SPRITE
1250 INPUT
126 IF
1260 PRINT
1270 PRINT
1280 RETURN
130 VARNAME
1300 OPEN
1310 IF
1320 CLOSE
1330 RETURN
1340 OPEN
135 INC
1350 IF
136 VARNAME
1360 IF
1370 CLOSE
1380 RETURN
140 VARNAME
1400 FOR
145 IF
15 VARNAME
150 VARNAME
155 IF
16 VARNAME
160 VARNAME
165 VARNAME
170 IF
175 IF
180 IF
185 IF
187 IF
188 IF
190 VARNAME
195 IF
2 VARNAME
20 VARNAME
200 DEC
205 IF
210 IF
211 VARNAME
212 IF
213 IF
214 IF
215 IF
220 IF
224 VARNAME
225 IF
231 TIMER
233 IF
235 VARNAME
236 VARNAME
238 IF
240 IF
241 IF
245 GOTO
25 MODE
250 VARNAME
252 VARNAME
253 IF
255 IF
256 RETURN
259 VARNAME
26 DIM
260 RETURN
265 VARNAME
266 IF
267 IF
268 IF
269 IF
27 DIM
270 VARNAME
271 VARNAME
273 SCREEN COPY
275 INC
280 LOCATE
285 RETURN
290 VARNAME
291 IF
292 IF
293 INC
294 IF
295 IF
296 IF
297 IF
298 IF
299 RETURN
3 GOSUB
30 DIM
300 REM select car
301 MODE
302 INK
305 GOSUB
306 FOR
31 FOR
310 SPRITE
315 VARNAME
316 VARNAME
317 VARNAME
318 VARNAME
319 VARNAME
32 FOR
320 GOSUB
321 GOSUB
322 SPRITE
33 DATA
330 FOR
34 DIM
340 SHOW
342 WHILE
343 IF
344 IF
345 IF
35 FOR
350 WEND
351 IF
355 IF
356 HIDE
357 UPDATE
36 DATA
360 RETURN
38 DIM
39 VARNAME
390 VARNAME
392 VARNAME
4 VARNAME
40 DATA
400 REM
401 VARNAME
402 VARNAME
405 VARNAME
406 IF
407 IF
408 IF
41 DATA
410 VARNAME
415 IF
416 IF
418 IF
42 DATA
420 VARNAME
421 IF
422 IF
423 IF
424 IF
425 IF
426 VARNAME
43 DATA
436 VARNAME
44 DATA
440 IF
441 IF
442 IF
45 DIM
450 INC
451 RETURN
460 VARNAME
461 VARNAME
462 IF
465 IF
469 RETURN
490 VARNAME
491 IF
492 IF
493 INC
494 IF
495 IF
496 IF
497 IF
498 IF
499 RETURN
5 VOLUME
50 FOR
500 REM collision
504 FOR
505 IF
510 NEXT
515 RETURN
520 LOCATE
521 RETURN
55 DATA
6 NOISE
60 DATA
600 REM set up cars
601 FOR
602 IF
603 IF
605 FOR
606 VARNAME
607 NEXT
610 FOR
611 VARNAME
615 NEXT
620 VARNAME
625 IF
626 IF
627 IF
628 IF
630 RETURN
640 VARNAME
65 DATA
70 DATA
700 LOCATE
701 WAIT KEY
702 MODE
705 WAIT KEY
71 DATA
710 GOTO
72 DATA
73 DATA
74 DATA
75 DATA
750 WAIT KEY
751 VARNAME
752 FOR
753 NEXT
754 NEXT
760 MODE
761 IF
765 WAIT KEY
79 FOR
80 DATA
800 VARNAME
810 VARNAME
820 VARNAME
830 VARNAME
840 GOTO
841 RETURN
85 DIM
850 VARNAME
860 VARNAME
861 FOR
862 NEXT
863 VARNAME
870 VARNAME
871 VARNAME
872 RETURN
875 VARNAME
876 VARNAME
880 INC
881 VARNAME
90 DATA
900 REM track editor
901 UPDATE
905 MODE
906 INK
91 GET PALETTE
910 FOR
915 FOR
920 VARNAME
93 GOSUB
95 GET PALETTE
950 VARNAME
951 VARNAME
952 IF
953 IF
954 IF
955 IF
990 WEND
999 RETURN